home *** CD-ROM | disk | FTP | other *** search
/ 64'er Special 27 / 64er_Magazin_Sonderheft_27_19xx_Markt__Technik_de_Disk_2_of_2_Side_A.d64 / init 2001 (.txt) < prev    next >
Commodore BASIC  |  2022-10-26  |  4KB  |  97 lines
  1. 0 rem "init.gr2001"-> erzeugt 'gr2001'
  2. 1 rem  *******************************
  3. 2 rem  >> zuerst mit mse eingeben : **
  4. 3 rem  ** 1. 'gr2001token.90f0' und **
  5. 4 rem  ** 2. 'gr2001.obj'           **
  6. 5 rem  ** und auf disk sichern      **
  7. 6 rem  *******************************
  8. 7 rem  >> dann :                    **
  9. 8 rem  ** 3. 'grafik 2000' laden    **
  10. 9 rem  ** 4.  poke43,1:poke44,64    **
  11. 10 rem ** 5.  poke16384,0:          **         ** = basicanfang hochsetzen  **
  12. 12 rem ** 6.  installationsprg.     **
  13. 13 rem **     'init.gr2001'         **
  14. 14 rem **     eingeben & starten    **
  15. 15 rem *******************************
  16. 16 rem ** 'init.gr2001' ===>        **
  17. 17 rem ** installationsprogramm     **
  18. 18 rem ** fuer 'gr2001'             **
  19. 19 rem ** = erweitertes und         **
  20. 20 rem **   modifiziertes           **
  21. 21 rem **  'grafik 2000'(f.brendel) **
  22. 22 rem **---------------------------**
  23. 24 rem **     dr. heinz domes       **
  24. 26 rem **     josef marx str. 13    **
  25. 28 rem ** a - 8043 graz             **
  26. 29 rem **     oesterreich           **
  27. 30 rem ** tel:0316-367335           **
  28. 31 rem *******************************
  29. 32 rem >> hinweis :'gr2001'         **
  30. 33 rem ** wartet nach laden und     **
  31. 34 rem ** starten mit 'run' auf     **
  32. 35 rem ** druck von 'c='taste bzw.  **
  33. 36 rem ** 'space'taste und ladet    **
  34. 37 rem ** dann programm 'gra1',     **
  35. 38 rem ** welches ein beliebiges    **
  36. 39 rem ** rumpfprg. sein kann mit   **
  37. 40 rem ** menue zum nachladen des   **
  38. 41 rem ** gewuenschten arbeitspro-  **
  39. 42 rem ** grammes.                  **
  40. 43 rem >>>mit 'poke12481,133:       **
  41. 44 rem **     'poke12482,48'        **
  42. 45 rem ** ausschalten der           **
  43. 46 rem ** autoboot - funktion.      **
  44. 50 rem *******************************
  45. 100 ifa=1then900
  46. 105 ifa=2then1000
  47. 304 rem----------------------------->1<----------------------------------------
  48. 305 rem-- "basiczeile & autoboot    ---
  49. 306 [143]--------------------------------
  50. 310 [129]m[178]2059[164]2094:[135]p:s[178]s[170]p:           :[151]m,p:[130]
  51. 320 [139]s[179][177]1968[167][153]"data error 1":[128]
  52. 350 [153]"1.  ok"
  53. 400 [131]13,13,30,40,67,41,32,70,46,66,82,69,78,68,69,76,13,13,77,79,68,73,70
  54. 405 [131]73,69,68,58,32,68,79,77,69,83,13,13,13
  55. 449 [143]--------------------------------
  56. 450 [129]m[178]2196[164]2198:[135]p:[151]m,p:[130]
  57. 480 [131]76,176,48  :[143] sprung ->$30b0      autobootroutine:ladet 'gra1'
  58. 490 [151]3111,0:           [151]3119,4
  59. 491 [143] ^rahmen,hintergr. ^akt.farbcode         :$0c27            :$0c2f
  60. 492 [143]--------------------------------
  61. 500 :
  62. 504 [143]----------------------------->2<----------------------------------------
  63. 505 [143]-- "modifizierte  load routine -
  64. 506 rem--  ladet absolut nach $e000   -
  65. 507 rem--------------------------------
  66. 510 s=0:form=3512to3523:readp:s=s+p:       :pokem,p:next
  67. 520 ifs<>1418thenprint"data error >2":end
  68. 550 print"2.  ok"
  69. 600 data169,0,133,185,170,160,224,76,143,158,0,0
  70. 700 :
  71. 704 rem----------------------------->3<----------------------------------------
  72. 705 rem-- "modif.  befehlstabelle   ---
  73. 706 [143]--------------------------------
  74. 710 [139]a[178]0[167]a[178]1:[151]157,128:[147]"gr2001token.09f0",8,1
  75. 717 :
  76. 900 :
  77. 904 [143]----------------------------->4<----------------------------------------
  78. 905 [143]-- "objectcode erweiterung   ---
  79. 906 rem--  laden                    ---
  80. 907 rem--------------------------------
  81. 910 ifa=1thena=2:load"gr2001.obj",8,1  :    rem $2298 - $30e5
  82. 920 poke157,0
  83. 1000 :
  84. 1004 rem----------------------------->5<---------------------------------------
  85. 1005 rem-- "basicanfang & prg ende  ---
  86. 1006 [143]--  zeiger setzen & save    ---
  87. 1007 [143]-------------------------------
  88. 1020 [143]'gr2001' ende $30e5=12517 **             xl=229:xh=48
  89. 1070 [143]----------------------------->6<---------------------------------------
  90. 1071 [143]--- pseudodirektmodus:      ---
  91. 1072 [143]-------------------------------
  92. 1130 [153]"loadp(NULL)43,1:p(NULL)44,8:p(NULL)45,229:p(NULL)47,229:p(NULL)49,229:p(NULL)46,48:p(NULL)48,48:p(NULL)50,48"
  93. 1140 [151]2049,48:[151]2050,8
  94. 1150 [153]"satn"[199](34)"gr2001"[199](34)",8"
  95. 1160 [151]631,19:[129]i[178]1[164]3:[151]631[170]i,13:[130]:[151]198,5:[128]
  96. 2000 [143]-----------------------------------------------------------------------
  97.